Wykres źródłowy:
Wizualizacja nie ma tytułu. Odczytywanie wartosci jest utrudnione przez umieszczenie ich pod wykresami. Dodatkowo kolory moga wprowadzac w blad gdyz kolor czerwony kojarzy sie negatywnie a zielony pozytywnie.
Mój kod wraz z wykresem:
library(tidyverse)
df <- read_csv("dane.csv")
df$name <- as.factor(df$name)
new_order <- c(
"Zdecydowanie ufa",
"Raczej ufa",
"Obojętność",
"Raczej nie ufa",
"Zdecydowanie nie ufa"
)
df$ufnosc <- factor(df$ufnosc, levels = new_order)
library(plotly)
plot_ly(
data = df,
x=~name,
y=~percentage,
type="bar",
color = ~ufnosc,
colors = c("chartreuse2","yellowgreen","yellow2","orange2","red3")
) %>%
layout(
title = "Poziom zaufania społeczeństwa do wybranych polityków",
yaxis = list(title = "Zaufanie społeczeństwa",
tickvals = seq(0,40,10),
ticktext = paste(seq(0,40,10),sep="","%")
),
xaxis = list(title = "Polityk"),
legend = list(
x = 0.9, y = 1,
title = list(text = "Stopień zaufania")
)
)
Wykres jest lepszy bo pozwala na odczytanie wartosci bezposrednio ze slupkow dzieki interaktywnosci oraz kolory kojarza sie z wartosciami ktore przedstawiaja.